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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS Sh UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN agoneen NCE WITH THE TERMS OF SUCH L 

INCLUSION OF THE ABOVE glo NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
aa 4 NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
CORPORaT bn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


PRA RRRAASARAAAASELAR LASSE SEES EE ESR ESE EERE EE SESE EERE CREE EERE EEC CESS ECS E SS 


: EQUATED SYMBOLS: 


++ 


3 COUNT ARG IN ARG LIST 
: RESULT ADDRESS 


wn 
~ 
xz 
—_— 
2 
a 
nnn 
or 


RESULT 


FACILITY: SYSTEM LIBRARY 
ABSTRACT: 


THIS ROUTINE PERFORMS ASCII INTEGER TO BINARY CONVERSION IN 
DECIMAL, OCTAL, AND HEX RADIX; RADIX DETERMINED BY ENTRY POINT. 
AN OPTIONAL LEADING SIGN IS AECEPTED. 


ENVIRONMENT : 


STAR NATIVE MODE PROCESSO 
INSTRUCTIONS OR SYSTEM SE 
STACK SPACE NEEDED. 


~SBTTL HISTORY 


oes A ACCESS LEVEL. NO SPECIAL 


R, 
RVI ARE USED. 9 LONGWORDS OF 


3; DETAILED 


¢ AUTHOR: ANDREW C. GOLDSTEIN 26-JAN-78 16:48 
; MODIFIED BY: 


V03-001 LJK0254 Lawrence J. Kenah 6-Dec-1983 
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0 avoid conflict with Econ name 
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4 SYS.SRCICVTATB.MAR; 1 
9 1 .ENTRY = ; ENTRY FOR DECIMAL CONVERT 
3 1 Eluscvr DTB,- 
003¢ 1 AM<RO,R3,R4,R5> : SAVE REGISTERS 2-5 
52 OA OD 24 MOVL 4#10,R2 + R2 = RADIX 
oc 11 0 4 BRB 10$ 
10 1 .ENTRY = ; ENTRY FOR OCTAL CONVERT 
003¢ 0010 1 $ FILSCVT_OTB,- 
52 08 0 0013 159 m are in3.au 
88 1 a 130 BRB 10$ Pads 
| .ENTRY = : ENTRY FOR HEXADECIMAL CONVERT 
_— $1 i EH a See SAVE REGISTERS 2-5 
52. 10 +00 0019 5 MOVL #16,R2 ° ° t R2 = RADIX 
50 7¢ ths 1 $ 10$:  CLRQ R ; ZERO INITIAL NUMBER 
53 7C «(OO1E «=: 138 CLRQ oR : AND STRING POINTER & SIGN 
53 op? 00 139 DECL R : BACK OFF COUNT 
40 11 «+00 é 140 BRB 70$ : AND ENTER PRE-TESTED LOOP 
55 08 BC43 9A $0 4 148 20$:  MOVZBL @STRINGCAP)CR3I.R5 : GET NEXT CHARACTER 
53 D5 0029 14 TSTL R ; SEE IF THIS IS FIRST CHARACTER 
OF 12 00 B 144 BNEQ 30% : SKIP SIGN CHECK IF NOT 
8 33 33 B88 tee Ts Ge Fe gece iat cng 
2D 3g 91 Opes 128 CMPB R5,#*A'=' ; CHECK FOR MINUS 
04 12 00 148 BNEQ 306 : BRANCH IF NOT 
54 06 0037 149 INCL RG : SET NEGATIVE FLAG 
2971 039 130 BRB 70$ : OK ~ LOOP FOR NEXT CHARACTER 
51 p& 0038 138 30$: CLRL RI : INIT TABLE INDEX 
BE AF41 55 91 003D 153 .40$:  CMPB  R5,.BASETABCR1] : CHECK DIGIT AGAINST BASE CHARACTER 
07 1F 0042 154 BLSSU : BRANCH IF DIGIT IS LESS 
BA AF41 5 91 0044 155 CMPB R5,TOPTABCR1] ; CHECK DIGIT AGAINST TOP CHARACTER 
06 1B 0049 156 BLEQU + BRANCH IF LESS = VALID 
EE 51 03 F2 0048 157 50%: $AOBLSS #3,R1,40$ : NOT THIS RANGE - TRY NEXT LOWER BASE 
26 «11 O04F 138 BRB 90$ : NOT A LEGAL DIGIT 
55 B1AF41 82 §a1 160 60$: | SUBB —VALTABCR1),R5 ; COMPUTE NUMERIC VALUE (NOTE - ALWAYS +) 
52. 55—CO# 096 161 CMPL = RS, R2 : CHECK DIGIT AGAINST RADIX 
1 1E 005 16¢ BGEQU 90 : TOUGH LUCK ...... 
55 50 2 7A $2 16 MUL Re RO.R5 RO ; SCALE VALUE BY RADIX AND ADD DIGIT 
1 05 0060 164 TSTL OR : CHECK FOR OVERFLOW 
13. (12 06 165 BNEQ 90% 
BB 53 O04 AC F2 064 187 70$ AOBLSS COUNT(AP),R3,20$ : LOOP FOR DIGITS 
03 54 E9 0069 183 BLBC R4, 808 : CHECK SIGN BIT 
50 So ¢ 6C 170 MNEGL RO. RO : MAKE NEGATIVE IF DESIRED 
0c BC 50 06 6f 171 80$:  MOVL  RO.a@RESULT(AP) : STORE RESULT 
0 01 p 3 176 MOVL #1,R0 : RETURN TRUE 
Lip 
77 175 : TO HERE ON ANY BAD CHARACTER 
0077 (176: 


( 
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V04=00 DECLARATIONS a ioety 83:24:08 USYS SRCICVIATB. MARS 1 . (1) 
50 4 7? «6177 90S: CLRL RO ; RETURN FALSE 
4 79 18 RET 

? 17 

7A =: 180 -DSABL LSB 

7A 18) 

7A § 

7A] 

7A 184 «END 
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CVT_ATB - ASCII NUMBER TO BINARY CONVERSION 15-SEP-1984 23:57:53 VAX/VMS Macro V04-00 Page 
Symbol table aioe yi 83504303 USYS. SRCICVTATB. MARS 1 . fy 
BASETAB 00 R 02 OP$_CVTLD = S06 OP$_SCANC z A 
COUNT = 4 OPS$"CVTLF = E OP$~SKPC = B 
FILSCVT_DTB 3 RG 8 OP$"CVTLG = GEFD OP$"SPAN = 
FILSCVT_HTB RG OP$"CVTLH z FD OP$" SUBD = 6 
PILSCyT OTB 10 RG 0 OP$"CVTLP 2 F OP$" SUBD = 6 
ACB = 6F OPS" CVTPL = 38 OP$~ SUBF = 4 
OP$_ACBF = 0000004F OP$"CVTPS = OP$~ SUBF = 4 
OP$_ACBG = 4FFD OPS"CVTPT = 4 OP$~ SUBG = 42FD 
OP$_ACBH = : oreD OP$"CVTRDL = B OP$"SUBG = 43FD 
OP$_ADDD = 6 OPS_CVTRFL = 048 OP$" SUBH = ogrd 
OP$_ADDD = 00000061 OP$_CVTRGL = Q0004BFD OP$"SUBH z FD 
OP$_ADDF = 4h 10 OP$_CVTRHL = $8 43 OP$"SUBP4 2 8 9 
OP$_ADDF = 0000004 OP$"CVTS = OP$"SUBP6 = 
OP$_ADDG = 000040FD OPS$"CVTTP = i 6 OP$-TSTD = 000 
~ADDG = 000041FD OPS" CVT WD = 0000006D OPS$_TSTF = 300 5 
OP$_ADDH = alee th OPS" CVT WF = 00000040 OP$_TSTG = 309 FD 
~ADDH = 000061FD OP$"CVTWG = BOR DED OP$"TSTH = 000073FD 
OP$_ADDP4 = pooenesy OPS$_CVTWH = 00006DFD ESOLT = 0000000C 
OP$_ADDP6 = 00000021 OP$_DIVD = 4444 STRING = sae 
ASHP = 000000F 8 OP$_DIVD = 0000006 TOPTAB 00000003 R 02 
OP$_CLRD = 0000007C OPS_DIVF = 4 ak VALTAB 00000006 R 02 
OP$_CLRF = 000000D4 OPS_DIVF = 0000004 
OP$—CLRG = 0000007C OP$"DIVG = B0004GFD 
~CLRH = 00007CFD OP$_DIVG = 000047FD 
OPS$_CMPD = 00000071 OP$_DIVH = 4's 9 ta 
OP$_CMPF = 00000051 OP$_DIVH = 000067FD 
OPS$_CMPG = 000051FD DIV = aaa ee 
OP$_CMPH = 000071FD OP$_EDITPC = 4 8 
OP$_CMPP3 z pela alot EMO = 00000074 
OPS_CMPP4 = 00000037 OP$_EMODF = 00000054 
P$_CRC = 00000008 OP$_EMODG = 000054FD 
OP$_CVTBD = 0000006C OP$-EMOD = 000074FD 
OP$_CVTBF = 0000004C OP$_MATCHC = 00000039 
OP$_CVTBG = QO004CFD OP$_MNEG = aa te 
OP$_CVTBH = QOO06CFD OP$_MNE GF = 0000005 
$_CVvT = 00000068 OP$_MNEGG = Bon ese 
OP$_CVTDF = BOS ore OP$_MNEGH = 000072FD 
OP$_CVTOH = 000032FD OP$_MOVD = 00000070 
OP$~CVTDL = 0000006A OP$_MOVF = 00000050 
OP$_CVTDW = 00000069 OP$—MOVG = 000050FD 
OP$_CVTFB = 00000048 OP$-MOV = 000070FD 
_CVTFD = 00000056 OP$_MOVP = 00000034 
“CVTFG = 000099F OP$"MOVTC = 0000002E 
OP$_CVTFH = 8 pare OP$"MOVTUC = 8 $8 F 
OP$_CVTFL = 4A OP$—MUL = 
OPS_CVTFW 2 49 OP$"MULD = 65 
OP$_CVTGB = FD OP$—MULF = 44 
~CVIGF zs FD OP$—MULF = 45 
OP$_CVTGH z FD OP$"MULG = 44FD 
~CVTGL = FD OP$~MULG = 45FD 
~CVTGW = FD OP$~MULH = 64FD 
~CVTHB = FD OP$"MULH = SF 
*CVTHD 3 FD “MUL = $ 
OP$~CVTHF z FD OP$"POLYD = 
~CVTHG = FD OP$—POL YF = 5 
OP$~CVTHL = FD OP$"POLYG = FD 
OP$~CVTHW = FD OP$=POLYH = 000075FD 


ee 


2 | 
| 
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we w em eneeencmac ams 


! i _Psect _Synopsis ! 


eseeeeeeeen ooo aud 


PSECT name Allocation PSECT No. Attributes 
- ABS . 0000 00 | . -} NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS 0000 ‘ NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
YCVTATB 00000 NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
tower wre me nana See ae am eee } 
: Performance indicators H 
Phase Page faults CPU Time Elapsed Time 
Initialization 5 :00:00.0 00:00:01.4 
a processing 133 09: 0:09: § ete 1-45 
s 1 34 :00:08. § 00:00:26.24 
a BS table sort 0 00: Ht B82 88: 1.49 
pees 2 49 00: 86 98 B38 :10.13 
ymbol table output 11 00:00:00.1 0:00:00.30 
areee synopsis output 88? 8708-8 00:00:00.02 
Cross-reference output 00:00:00.0 00:00:00.00 
Assembler run totals 57 00:00:12.5 00:00:44.56 


The tien | set Limit was 1500 pages. 

36815 bytes (72 pages) of virtual memory were used to buffer the intermediate code. 

There were 30 pages of symbol table space allocated to hold 370 non-local and 9 local symbols. 
source Lines were read in Pass 1, producing 21 object records in Pass 2. 

134 pages of virtual memory were used to define 133 macros. 


eee en em eee seco ewe ener eee ne enn $ 


Macro library name Macros defined 
~$255$DUA28: bats -OBJJL1B.MLB; 1 0 
$255$DUA28: (SYSLIBJSTARLET. MLB;2 4 
TOTALS (all Libraries) 4 


420 GETS were required to define 4 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:CVTATB/OBJ=OBJ$:CVTATB MASDS$: CEMULAT.SRCIMISSING/UPDATE=(MASD$: CEMULAT .ENHJMISSING) +MASDS:CSYS.SRCICVTATB/UPDATE=(MAS 
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